(include "././fixeds/class.inc")

(def-class reals fixeds
	(dec-method :vtable class/reals/vtable)
	(dec-method :create class/reals/create)
	(dec-method :vcreate class/reals/create :final)
	(dec-method :velement class/real/create :final)
	(dec-method :add class/reals/add :final)
	(dec-method :sub class/reals/sub :final)
	(dec-method :mul class/reals/mul :final)
	(dec-method :dot class/reals/dot :final)
	(dec-method :div class/reals/div :final)
	(dec-method :mod class/reals/mod :final)
	(dec-method :abs class/reals/abs :final)
	(dec-method :sum class/reals/sum :final)
	(dec-method :scale class/reals/scale :final)
	(dec-method :min class/reals/min :final)
	(dec-method :max class/reals/max :final)
	(dec-method :frac class/reals/frac :final)
	(dec-method :floor class/reals/floor :final))

(def-struct reals fixeds_size)
